home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
tugi
/
chihiro.tug
< prev
next >
Wrap
Text File
|
1991-10-18
|
7KB
|
267 lines
TUGi_macro(v1.0)
sample_01()
{
/**********************************/
/** 千尋さんのデータ、256色 **/
/**********************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" さて・・おおっ!千尋さんだぁ♪(^^;",
" お元気ですか~?",
" じゃなくて・・(^^; このファイルでは、"
" 彩霞千尋さんの作品を表示します。 "
" 枚数が多いので、4部構成にしました(^^;"
" まずは、その1です<^_^>",
" マウスをクリックして下さい♪"
);
mousewait();
wind_close();
wind_init();
wrtstr(
" "
" 256色モードの画像データです。"
" 26枚あります。"
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\CHIHIRO\256MODE\MARIKO\MARIKO.TIF
Q:\CHIHIRO\256MODE\MARIKO_P\MARIKO_P.TIF
Q:\CHIHIRO\256MODE\KINUKO_P\KINUKO_P.TIF
Q:\CHIHIRO\256MODE\RICHIKO\RICHIKO.TIF
Q:\CHIHIRO\256MODE\RICHIK_P\RICHIK_P.TIF
Q:\CHIHIRO\256MODE\MASAKO\MASAKO.TIF
Q:\CHIHIRO\256MODE\MASAKO_P\MASAKO_P.TIF
Q:\CHIHIRO\256MODE\YUKO\YUKO.TIF
Q:\CHIHIRO\256MODE\YUKO_P\YUKO_P.TIF
Q:\CHIHIRO\256MODE\SYOKO_P\SYOKO_P.TIF
Q:\CHIHIRO\256MODE\CHIEKO\CHIEKO.TIF
Q:\CHIHIRO\256MODE\KATUKO\KATSUKO.TIF
Q:\CHIHIRO\256MODE\SATOKO\SATOKO.TIF
Q:\CHIHIRO\256MODE\SATOKO_P\SATOKO_P.TIF
Q:\CHIHIRO\256MODE\JINKO\JINKO.TIF
Q:\CHIHIRO\256MODE\MACHIKO\MACHIKO.TIF
Q:\CHIHIRO\256MODE\YUKIKO\YUKIKO.TIF
Q:\CHIHIRO\256MODE\NAOKO\NAOKO.TIF
Q:\CHIHIRO\256MODE\NAMIKO\NAMIKO.TIF
Q:\CHIHIRO\256MODE\MAKIKO\MAKIKO.TIF
Q:\CHIHIRO\256MODE\MAKIKO_P\MAKIKO_P.TIF
Q:\CHIHIRO\256MODE\WAKAKO\WAKAKO.TIF
Q:\CHIHIRO\256MODE\YOSHIKO\YOSHIKO.TIF
Q:\CHIHIRO\256MODE\MAYUKO\MAYUKO.TIF
Q:\CHIHIRO\256MODE\AKIKO\AKIKO.TIF
Q:\CHIHIRO\256MODE\KINUKO\KINUKO.TIF
);
);
/********************************/
/** 千尋さんのデータ、その他 **/
/********************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" "
" 千尋さんの絵、その2です。<^_^>",
" "
" 32K色と16色の画像データです。"
" 27枚あります。"
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\CHIHIRO\32KMODE\KEIKO_P\KEIKO_P.TIF
Q:\CHIHIRO\32KMODE\MICHIK_P\MICHIK_P.TIF
Q:\CHIHIRO\32KMODE\EMIKO\EMIKO.TIF
Q:\CHIHIRO\32KMODE\AIKO\AIKO.TIF
Q:\CHIHIRO\32KMODE\HIDEKO\HIDEKO.TIF
Q:\CHIHIRO\32KMODE\HIDEKO_P\HIDEKO_P.TIF
Q:\CHIHIRO\32KMODE\HISAKO\HISAKO.TIF
Q:\CHIHIRO\32KMODE\KEIKO\KEIKO.TIF
Q:\CHIHIRO\32KMODE\YOKO\YOKO.TIF
Q:\CHIHIRO\32KMODE\KAYOKO\KAYOKO.TIF
Q:\CHIHIRO\32KMODE\MIHOKO\MIHOKO.TIF
Q:\CHIHIRO\32KMODE\MICHIKO\MICHIKO.TIF
Q:\CHIHIRO\32KMODE\NORIKO\NORIKO.TIF
Q:\CHIHIRO\32KMODE\EMIKO_P\EMIKO_P.TIF
Q:\CHIHIRO\32KMODE\RYOKO\RYOKO.TIF
Q:\CHIHIRO\32KMODE\ATSUKO2\ATSUKO2.TIF
Q:\CHIHIRO\32KMODE\CHIZUKO\CHIZUKO.TIF
Q:\CHIHIRO\16_MODE\WAKAKO_P\WAKAKO_P.TIF
Q:\CHIHIRO\16_MODE\YUMIKO\YUMIKO.TIF
Q:\CHIHIRO\16_MODE\KUMIKO\KUMIKO.TIF
Q:\CHIHIRO\16_MODE\KUMIKO_P\KUMIKO_P.TIF
Q:\CHIHIRO\16_MODE\YUMIKO_P\YUMIKO_P.TIF
Q:\CHIHIRO\16_MODE\ATSUKO\ATSUKO.TIF
Q:\CHIHIRO\16_MODE\TAKAKO\TAKAKO.TIF
Q:\CHIHIRO\16_MODE\SHIZUK_P\SHIZUK_P.TIF
Q:\CHIHIRO\16_MODE\YURIKO\YURIKO.TIF
Q:\CHIHIRO\16_MODE\SHIZUKO\SHIZUKO.TIF
);
);
/**********************************/
/** 千尋さんのデータ、アニメ1 **/
/**********************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
"千尋さんの絵、その3です。<^_^>",
"え~っと、このデータはTIFファイルの",
"連続表示によるアニメーション用の物なので、"
"ここで見るのは少々「う~む(^^;」かもしれません(^^;"
" "
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\CHIHIRO\ANIME\TOMOKO1.TIF
Q:\CHIHIRO\ANIME\TOMOKO2.TIF
Q:\CHIHIRO\ANIME\TOMOKO3.TIF
Q:\CHIHIRO\ANIME\TOMOKO4.TIF
Q:\CHIHIRO\ANIME\TOMOKO5.TIF
Q:\CHIHIRO\ANIME\TOMOKO6.TIF
Q:\CHIHIRO\ANIME\TOMOKO7.TIF
Q:\CHIHIRO\ANIME\TOMOKO8.TIF
Q:\CHIHIRO\ANIME\TOMOKO9.TIF
Q:\CHIHIRO\ANIME\TOMOKO10.TIF
Q:\CHIHIRO\ANIME\TOMOKO11.TIF
Q:\CHIHIRO\ANIME\TOMOKO12.TIF
Q:\CHIHIRO\ANIME\TOMOKO13.TIF
Q:\CHIHIRO\ANIME\TOMOKO14.TIF
Q:\CHIHIRO\ANIME\TOMOKO15.TIF
Q:\CHIHIRO\ANIME\TOMOKO16.TIF
Q:\CHIHIRO\ANIME\TOMOKO17.TIF
Q:\CHIHIRO\ANIME\TOMOKO18.TIF
Q:\CHIHIRO\ANIME\TOMOKO19.TIF
Q:\CHIHIRO\ANIME\TOMOKO20.TIF
Q:\CHIHIRO\ANIME\TOMOKO21.TIF
Q:\CHIHIRO\ANIME\TOMOKO22.TIF
Q:\CHIHIRO\ANIME\TOMOKO23.TIF
Q:\CHIHIRO\ANIME\TOMOKO24.TIF
Q:\CHIHIRO\ANIME\TOMOKO25.TIF
Q:\CHIHIRO\ANIME\TOMOKO26.TIF
Q:\CHIHIRO\ANIME\TOMOKO27.TIF
Q:\CHIHIRO\ANIME\TOMOKO28.TIF
Q:\CHIHIRO\ANIME\TOMOKO29.TIF
Q:\CHIHIRO\ANIME\TOMOKO30.TIF
Q:\CHIHIRO\ANIME\TOMOKO31.TIF
Q:\CHIHIRO\ANIME\TOMOKO32.TIF
Q:\CHIHIRO\ANIME\TOMOKO33.TIF
Q:\CHIHIRO\ANIME\TOMOKO34.TIF
Q:\CHIHIRO\ANIME\TOMOKO80.TIF
);
);
/**********************************/
/** 千尋さんのデータ、アニメ2 **/
/**********************************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" 千尋さんの絵、その4です。<^_^>",
" これまたTIFファイルのアニメーション用の",
" データなので、「う~む(^^;」かもしれませんが、",
" 感じは掴めて頂けるのではないかと・・・(^^;",
" 専用の表示プログラムを実行するのが一番ですね(^^;"
" この画像データを表示しますか?",
" "
);
wind_close();
Question(
Graph_View(
Q:\CHIHIRO\ANIME2\RYOKO00.TIF
Q:\CHIHIRO\ANIME2\RYOKO01.TIF
Q:\CHIHIRO\ANIME2\RYOKO02.TIF
Q:\CHIHIRO\ANIME2\RYOKO03.TIF
Q:\CHIHIRO\ANIME2\RYOKO04.TIF
Q:\CHIHIRO\ANIME2\RYOKO05.TIF
Q:\CHIHIRO\ANIME2\RYOKO06.TIF
Q:\CHIHIRO\ANIME2\RYOKO07.TIF
Q:\CHIHIRO\ANIME2\RYOKO08.TIF
Q:\CHIHIRO\ANIME2\RYOKO08A.TIF
Q:\CHIHIRO\ANIME2\RYOKO09.TIF
Q:\CHIHIRO\ANIME2\RYOKO09A.TIF
Q:\CHIHIRO\ANIME2\RYOKO09B.TIF
Q:\CHIHIRO\ANIME2\RYOKO10.TIF
Q:\CHIHIRO\ANIME2\RYOKO10A.TIF
Q:\CHIHIRO\ANIME2\RYOKO10B.TIF
Q:\CHIHIRO\ANIME2\RYOKO11.TIF
Q:\CHIHIRO\ANIME2\RYOKO11A.TIF
Q:\CHIHIRO\ANIME2\RYOKO12.TIF
Q:\CHIHIRO\ANIME2\RYOKO12A.TIF
Q:\CHIHIRO\ANIME2\RYOKO13.TIF
Q:\CHIHIRO\ANIME2\RYOKO14.TIF
Q:\CHIHIRO\ANIME2\RYOKO14A.TIF
Q:\CHIHIRO\ANIME2\RYOKO14B.TIF
Q:\CHIHIRO\ANIME2\RYOKO14C.TIF
Q:\CHIHIRO\ANIME2\RYOKO14D.TIF
Q:\CHIHIRO\ANIME2\RYOKO14E.TIF
Q:\CHIHIRO\ANIME2\RYOKO14F.TIF
Q:\CHIHIRO\ANIME2\RYOKO14G.TIF
Q:\CHIHIRO\ANIME2\RYOKO14H.TIF
Q:\CHIHIRO\ANIME2\RYOKO14I.TIF
Q:\CHIHIRO\ANIME2\RYOKO14J.TIF
Q:\CHIHIRO\ANIME2\RYOKO15.TIF
Q:\CHIHIRO\ANIME2\RYOKO16.TIF
Q:\CHIHIRO\ANIME2\RYOKO17.TIF
Q:\CHIHIRO\ANIME2\RYOKO18.TIF
Q:\CHIHIRO\ANIME2\RYOKO19.TIF
Q:\CHIHIRO\ANIME2\RYOKO20.TIF
Q:\CHIHIRO\ANIME2\RYOKO21.TIF
Q:\CHIHIRO\ANIME2\RYOKO22.TIF
Q:\CHIHIRO\ANIME2\RYOKO23.TIF
Q:\CHIHIRO\ANIME2\RYOKO24.TIF
Q:\CHIHIRO\ANIME2\RYOKO25.TIF
Q:\CHIHIRO\ANIME2\RYOKO26.TIF
Q:\CHIHIRO\ANIME2\RYOKO27.TIF
);
);
/****************/
/** お終いっ **/
/****************/
Screen(3);
cls(1);
paletteset();
wind_init();
wrtstr(
" ",
" ",
" 他のデータも見てみますか?"
);
wind_close();
Question(
MAIN2SB2.TUG
);
END.TUG
}